home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / H-Graphics / (c)h1.d64 / doodle slideshow (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  105 lines
  1. 0 REM "[185][185][185][185]DOODLE LOADER[185][185][185][185]"
  2. 1 :
  3. 4 :    REM..LIST 10000 FOR CREDITS
  4. 5 :
  5. 10 POKE2,1:POKE53281,0:POKE53280,11:PRINT""
  6. 11 IFA=0ANDYS=0THENGOSUB1000
  7. 12 IFYS=2THENGOTO15
  8. 13 YS=2:LOAD"HIRES.DMP$CC00.3",8,1
  9. 15 IFA=0THEN POKE55,0:POKE56,92:CLR:DIMA$(20):A=1:AU=0
  10. 20 RESTORE
  11. 25 C=11:REM BORDER COLOR
  12. 30 GOSUB500
  13. 40 GOSUB700
  14. 198 IFPEEK(197)=49THENAU=0:REM KEYBRD             MATRIX VALUE OF '*'(AUTO OFF)
  15. 199 IFAU=1THENFORTT=1TO50:NEXTTT:I=I+1:GOTO250:REM AUTO MODE
  16. 200 GETB$:IFB$=""THEN200
  17. 201 IFB$="^"THENAU=1:GOTO199:REM                    '^' SWITCHES AUTO MODE ON
  18. 202 IFB$="[134]"THENC=C-1:POKE53280,C:IFC=0THENC=15:REM  F3 PREVIOUS BORDER COLOR
  19. 203 IFB$="[135]"THENC=C+1:POKE53280,C:IFC=15THENC=0:REM  F5 NEXT BORDER COLOR
  20. 205 IFB$="[139]"THENSYS52224:GOTO200:REM                 F6 1525 M/L SCREEN DUMP
  21. 206 IFB$="1"THENPOKE2,1:REM                          1 FOR SINGLE-SIZE DUMP
  22. 207 IFB$="2"THENPOKE2,2:REM                          2 FOR DOUBLE-SIZE DUMP
  23. 210 IFB$="[140]"THENI=I+1:GOTO250:REM                    F8 NEXT SCREEN W/O MENU
  24. 220 IFB$="[133]"THEN270:REM                              F1 TOGGLE TO MENU
  25. 230 IFB$<"A"ORB$>"Q"THEN200
  26. 240 I=ASC(B$)-64
  27. 250 IFI>17THENI=1
  28. 260 F$="DD"+A$(I)
  29. 265 IFF$="DD--------------"THEN198
  30. 270 POKE53265,59:POKE53272,120
  31. 280 POKE56576,PEEK(56576)AND254
  32. 290 IFB$<>"[133]"THENLOAD F$,8,1
  33. 310 IFAU=1THENGOTO198
  34. 320 GETT$:IFT$=""THEN320
  35. 325 IFT$<>"[133]"THENB$=T$:T$="":GOTO201
  36. 330 POKE53265,27:POKE53272,21
  37. 340 POKE56576,PEEK(56576)OR1
  38. 360 GOTO200
  39. 500 FORD=1TO17:READA$(D):NEXT:RETURN
  40. 510 DATA"LANDSCAPE.01"
  41. 515 DATA"LANDSCAPE.04"
  42. 520 DATA"LANDSC.06 COL"
  43. 525 DATA"LANDSC.07 COL"
  44. 530 DATA"LANDSC.08 COL"
  45. 535 DATA"LANDSC.09 COL"
  46. 540 DATA"LANDSC.10 COL"
  47. 545 DATA"LANDSC.11 COL"
  48. 550 DATA"LANDSC.12 COL"
  49. 555 DATA"LANDSC.DONE"
  50. 560 DATA"LANDSC.SKEL.BW"
  51. 565 DATA" DN.W/O.CL B/W"
  52. 570 DATA"LND.DN W/O CLO"
  53. 575 DATA"4-PAN.LANDSC."
  54. 580 DATA"FRM.LNDSCP.EXP"
  55. 585 DATA"SKL.LNDS.TWN12"
  56. 590 DATA"TWINLANDSCAPE"
  57. 595 DATA "--------------"
  58. 600 DATA "--------------"
  59. 605 DATA "--------------"
  60. 610 DATA "--------------"
  61. 615 DATA "--------------"
  62. 700 PRINT"[147][154]  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]  [176][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  63. 701 PRINT"[154] [176][179][158]DOODLE SLIDESHOW[146][154][171][192][192][179][129]W.SCHMIDT/R.W[154][171][192][174]"
  64. 710 PRINT"[154] [194][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][189] [194]"
  65. 720 PRINT" [221] A[146] "A$(1)TAB(21)"I[146] "A$(9)TAB(38)"[154][221]"
  66. 730 PRINT" [221] B[146] "A$(2)TAB(21)"J[146] "A$(10)TAB(38)"[154][221]"
  67. 740 PRINT" [221] C[146] "A$(3)TAB(21)"K[146] "A$(11)TAB(38)"[154][221]"
  68. 750 PRINT" [221] D[146] "A$(4)TAB(21)"L[146] "A$(12)TAB(38)"[154][221]"
  69. 760 PRINT" [221] E[146] "A$(5)TAB(21)"M[146] "A$(13)TAB(38)"[154][221]"
  70. 770 PRINT" [221] F[146] "A$(6)TAB(21)"N[146] "A$(14)TAB(38)"[154][221]"
  71. 780 PRINT" [221] G[146] "A$(7)TAB(21)"O[146] "A$(15)TAB(38)"[154][221]"
  72. 790 PRINT" [221] H[146] "A$(8)TAB(21)"P[146] "A$(16)TAB(38)"[154][221]"
  73. 795 PRINT" [221]"TAB(12)"Q[146] "A$(17)TAB(38)"[154][221]"
  74. 797 PRINT" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
  75. 798 PRINT"   [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]  [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][154]
  76. 799 [143]    PRINT"  FOR CONTINUOUS     FROM MENU,SELECT
  77. 800 REM    PRINT"  VIEW OF SCREENS [158]OR[146][129] LETTER[154] TO LOAD &
  78. 801 [143]    PRINT"  LOADING, USE FORF8WAITCONT    VIEW EACH DOODLE
  79. 802 REM    PRINT"  [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]    [196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][154]
  80. 803 [153]" ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^
  81. 820 PRINT" [221] PRESS [129]F1[146]  TO TOGGLE TO & FROM MENU[154] [221]"
  82. 821 PRINT" [221]  ... [129]A[146]TO[129]Q[146] TO SELECT LOAD & VIEW   [154] [221]"
  83. 822 PRINT" [221]  ...  [129]F8[146]  TO LOAD NEXT SCREEN     [154] [221]"
  84. 823 PRINT" [221]  ...  [129] ^  TO START AUTO SEQ. LOAD [154] [221]"
  85. 824 PRINT" [221]  ...  [129] *  & HOLD[146] TO STOP AUTO LOAD[154] [221]"
  86. 825 PRINT" [221]  ...  [129]F3[146]  TO CHANGE BORDER COLOR(-)[154][221]"
  87. 826 PRINT" [221]  ...  [129]F5[146]  TO CHANGE BORDER COLOR(+)[154][221]"
  88. 827 PRINT" [221]  ...  [129]F6[146]  FOR 1525 M/L BIT-MAP DUMP[154][221]"
  89. 828 PRINT" [221]  ... [129]1[146]OR[129]2[146]    (SINGLE/DOUBLE-SIZE)  [154][221]"
  90. 830 PRINT" [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]";
  91. 835 RETURN
  92. 998 :------------------------
  93. 999 REM CHOICE FOR LOADING                      1525 M/L BIT-MAP DUMP
  94. 1000 YS=0:PRINT"[147] WOULD YOU LIKE TO LOAD THE HIRES DUMP                   (Y/N)?"
  95. 1010 GETYS$:IFYS$=""THEN1010
  96. 1020 IFYS$="N"THENYS=2:RETURN
  97. 1030 IFYS$="Y"THENYS=1:PRINT"[147] LOADING...":RETURN
  98. 1040 GOTO1010
  99. 1050 :-----------------------
  100. 10000 :    REM"[184][184][184][184][184][184]CREDITS[184][184][184][184][184][184][184][184]"
  101. 10010 :    REM MENU SELECT DEMO (RGW)
  102. 10020 :    REM RICHARD G. WILMOTH             :        NEWPORT NEWS,VA
  103. 10030 :    REM SUBSTANTIAL FUNCTIONAL &       :        COSMETIC ENHANCEMENTS BY
  104. 10039 :    REM WAYNE R. SCHMIDT,NYC
  105.